home *** CD-ROM | disk | FTP | other *** search
/ CD Classic 39 / CD CLASSIC #39 (1998).iso / EMPRESA / visio / Vistdstd / Install / Data.Z / Docpage.BAS < prev    next >
BASIC Source File  |  1996-09-04  |  2KB  |  41 lines
  1. Attribute VB_Name = "DOCPAGE"
  2. ' -----------------------------------------------------------------------------
  3. ' Copyright (C) 1993-1996 Visio Corporation. All rights reserved.
  4. '
  5. ' You have a royalty-free right to use, modify, reproduce and distribute
  6. ' the Sample Application Files (and/or any modified version) in any way
  7. ' you find useful, provided that you agree that Visio has no warranty,
  8. ' obligations or liability for any Sample Application Files.
  9. ' -----------------------------------------------------------------------------
  10.  
  11. Option Explicit                                     '-- All Variable Explicit!
  12.  
  13. '--
  14. '-- Type DOCUMENT:
  15. '--
  16. '--   The DOCUMENT type is equivalent to a Visio document.  A list can be
  17. '-- created from this type that contains the entire Visio document collection.
  18. '--
  19.  
  20. Type DOCUMENT
  21.   strDocName As String                              '-- Document Name
  22.   strDocFilePath As String                          '-- Document Full File Name
  23.   iPages As Integer                                 '-- Total Pages In Document
  24.   iPageListIndex As Integer                         '-- Position In Page List
  25.   iCollIndex As Integer                             '-- Collection Index
  26. End Type
  27.  
  28.  
  29. '--
  30. '-- Type PAGE:
  31. '--
  32. '--   Type PAGE represents a Visio drawing page.  Create an array of this type to
  33. '-- represent a documents pages.
  34. '--
  35.  
  36. Type PAGE
  37.   strName As String                                 '-- Name Of Page
  38.   iCollIndex As Integer                             '-- Collection Index
  39. End Type
  40.  
  41.